home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / glazer.arc / LOANTERM.BAS < prev    next >
BASIC Source File  |  1988-10-07  |  1KB  |  29 lines
  1. 100 'Term of Loan ("LOANTERM")
  2. 110 CLS
  3. 120 COLOR 0,15 : PRINT "Term of Loan" : COLOR 15,0
  4. 130 PRINT : PRINT
  5. 140 DEFDBL A-Z
  6. 150 DEFINT M-N
  7. 160 MONEYFMT$ = "$$##,###,###.##"
  8. 170 '     Let user enter data
  9. 180 PRINT "Do not enter dollar signs or commas"
  10. 190 PRINT
  11. 200 INPUT "Amount of loan: ", PNCPL
  12. 210 INPUT "Payment each period: ", PMT
  13. 220 INPUT "Number of payments per year: ", NPY
  14. 230 INPUT "Annual interest rate (in percent): ", AR
  15. 240 '     Check if payment too low
  16. 250 PR = AR / (100 * NPY)
  17. 260 IF PNCPL * PR > PMT  THEN PRINT : PRINT                                            "Payment will not amortize loan" : END
  18. 270 '     Find number of periods to repay loan
  19. 280 IF PR <> 0 THEN NUMPAYMENTS = INT (-LOG (1 - PR * PNCPL / PMT)                                  / LOG (1 + PR) )                                                           ELSE NUMPAYMENTS = INT (PNCPL / PMT)
  20. 290 '     Find balance remaining at end of term
  21. 300 EBALANCE = (1 + PR) ^ -NUMPAYMENTS - 1
  22. 310 IF PR <> 0  THEN EBALANCE= (EBALANCE * PMT / PR + PNCPL) *                                       (1 + PR) ^ NUMPAYMENTS                                                     ELSE EBALANCE = PNCPL - NUMPAYMENTS * PMT
  23. 320 '     Print results
  24. 330 PRINT : PRINT
  25. 340 PRINT "Number of payments required:";  TAB(32); NUMPAYMENTS
  26. 350 PRINT "Ending balance: "; TAB(20); 
  27. 360 PRINT USING MONEYFMT$; EBALANCE
  28. 370 END
  29.